' ************************************************************
' https://anotherssisframework.codeplex.com
'
' Copyright (c) 2014, Allen J. Zyck <sql.architect@outlook.com>
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights 
' to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons
' to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions of the 
' Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, 
' INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE 
' AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, 
' DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 
' OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
'
' ************************************************************
'
' VBScript to set environmental variable for SSIS framework
' 
'
' Al Zyck 2014
'
'-----------------------------------------------------------
set WshShell = CreateObject("WScript.Shell")
'
' Get the DB\Instance name
'
strDWConfigInstance = InputBox("Enter the server\instance name that hosts the SSIS DW Config Database", "Enter Instance Name")
strDWConfigDB = InputBox("Enter the database name for the SSIS DW Config Database", "Enter DB Name")
'
' Check if empty - if empty exit
'
If strDWConfigDB = "" OR  strDWConfigInstance = "" Then
	WScript.Echo "Invalid Entry"
	Wscript.Quit
Else
	' Set the environmental vable
	set oEnv=WshShell.Environment("System")
	oEnv("DWConfigInstance") = strDWConfigInstance
	oEnv("DWConfigDB") = strDWConfigDB
End If

